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1 



AOPtt 



DISK SYSTEK TEST MODULE 



TRP IOC OBJECT CODE 



ADDH STMT SOOPCE STATEMENT 



0000 
OAOO 



OAOO AOFtt 
0A02 00 
0A03 01 
OAOU 0000 
0A06 0A12 
OAOS 0E92 
OAOA AOtOOO 
OAOD B01000 



OA10 0000 
0A12 01 
0A13 00 
0A1i» FFFF 

0A16 30 A2 0EP8 

0A1A 30 A3 OEPA 

OAIE CO "?? 0A3r 

0A22 38 20 OAOF 

0A26 F2 90 21 

0A29 3A 10 OEDE 

0A2D 20 ^2 OEPR 

0A31 30 B3 0E«A 

0A3S CO 97 0A3C 

0A39 F2 "M 11 

OAsC 3U 08 0AU7 

OAUO 3B 10 0EB8 

0A41* CO 90 0000 

OA«R CO "7 OEPC 
OAUC 01 



0AO1 
0A02 
0A03 
0A05 
0A07 
OAOO 
OAOC 
OAOF 



0A11 
0A12 
0A13 
0A1S 



0A4C 



OAan 3»1 02 OAOC 



2 
3 

tt 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
2U 
25 
26 
27 
28 
29 
30 
31 
32 
33 
31* 
35 
36 
37 
38 
39 
UO 

m 

U2 
13 
U4 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



DECK 1 
DISK START 

OFG X'AOO' 

It^^^^^^n***************^** ************************* ****-^*************L 

* 10/21/70 LAST UPDATE * 
^^*.^^^^rt^i^^^^'tr^if*-^^^1f^^^****^**i*******^r ***************************** 

* DISK SYSTEM TEST HODHLE * 
nn^^^^m*** ***************************************** ****************** 

* SECTION PREFACE ♦ 
********************************************************************* 



AUDT 
BDDT 



DC 
DC 
DC 

nc 

DC 
DC 

DC 
DC 



XL2'A0F4» 
XLI'OO' 
XLP01' 
XL2'0000' 
»L2(PTM01) 
AL2 (EBTAB) 
XL3« A04OO0' 
XL3'B01OO0' 



PROGRAM ID AND REVISIOH LEVEL 

SECTION FLAGS 

CURRENT ROUTINE NOHBER 

RESERVED 

FIRST ROUTINE ADDRESS 

ERROR T»BLE ADDRESS 

SECTION PREFACE UNIT DEF. TABLE 

SECTION PREFACE UNIT DEF. 



****** **^******^***** *********************************** ************* 

* PROGRAH NOTES * 

******* *^* *^* ************************************ V* ****************** 



WARNING - DO NOT ALTER PROGRAH WITHOUT CAREFCLi-T STUDYING HOW* 

******* XT RUNS. TO CONSERVE CORE, FUNNY THIRDS ARE DOSE. * 

-BE CAREFUL-. * 



TO COMSEBVE CORE, PROGRAM PARTS -RTN01- -CBPAR- -ROSY- -HALF-* 
NEED BE FUN ONLY OBCE. THEREFORE THEY WILL BECOME PAPV OF THE* 
READ IN AREA. NOTE, A BRANCH TO -GOOF- OR BUSY- INSTRUCTION * 
IS PLACED WHERE -BEGIN- IS. THIS WILL BRANCH OVER THE READ ♦ 

IS AREA. * 

********************************************************************* 

* 
* 
********* 

* RTN01 ♦ 
********************************************************************* 

* PROGRAM SENSES STATUS BYTES OF ♦ 

* THE SPINDLES AMD CHECKS FOR ANY * 

* ERROR CONDITIONS. * 
********************************************************************* 



FTN01 



BEGIN 



CkST 



STCK 



DC 


XL2'O00O' 


DC 


TLT01' 


DC 


XLI'OO* 


DC 


XL2«FFFF' 


SNS 


STAT1,X« A2' 


SNS 


STAT3,X« A3» 


8 


CKST 


TBN 


BUDT-1,X'20' 


JF 


HALF 


5BN 


HLTID-1, X'10» 


SNS 


STAT1,X« B2' 


SNS 


JTAT3,X«B3' 


B 


CKST 


.1 


HALF 


CHECK 


THE 3TAT0S BYTES 


ST 


STCK^I, ARR 


TBN 


STATI.X* 10* 


BF 


*-* 


P 


ERROR 


DC 


XLI'01' 



ROUTINE NUMBER 

SO HANYAL INTERVEHTION REQUIRED 

LAST ROUTINE 

'NSE STATUS BYTES 0,1,2,3, FOR 
SPINDLE -1-. 
GO ANALYIZE THE BYTES. 
SPINDLE -2- DEFINED? 
JUMP IF NOT. 
SET UP FOR DRIVE 2. 
SENSE STATUS BYTES 0,1,2,3 FOR 
SPINDLE -2-. 
GO ANALYIZE THE BYTES. 
GO CHECK DISK CAPACITIES. 
FOR THE SPINDLE (S) . 

STORE THE RETURN ADDRESS. 
SEEK BUSY BIT STOCK ON? 
BRANCH BACK IF OFF. 
LOG ERROR - SEEK BUSY CHECK. 
♦ID -01-. 



******** 

♦ HALF * 
**•,****************************************************************** 

♦ DETERMINE WHETHER OR NOT THE ♦ 

♦ DISKS ARE FULL OF HALF CAPACITY * 

♦ AND MODIFY THE COMMANDS TABLE * 

♦ ACCORDINGLY. * 
HALF TRN A0DT,CAP2 HALF CAP DISK? 



DA~E 
EC NO. 



13MA«»70 
571512 



06APP70 
571516 



22MAY70 
571513 



01AUG70 
571531 



010CT''0 
571540 



28APP71 
571565 



PROG 
PAGE 



ID 



OAOF-I 
1 



TBH HAIHTENANCE DTJIGHOSTIC PROGBUM 



PART HO. 
PAGE 



1A 



AOFtt 



DISK SYSTEB TEST ."lODDLF 



BRR LOC OBJECT CODE 



AODR STHT SOORCE STATEHENT 



0A51 


F2 


90 


07 


oasu 


3A 


10 


0E7F 


OASfl 


F2 


87 


26 


0A5B 


3C 


64 


0E6A 


0A5F 


C2 


01 


0E1A 


0»63 


KB 


00 


OH 0E6A 


0*68 


4E 


00 


06 0E6A 


0A6D 


UE 


00 


08 0E6A 


0A72 


UE 


00 


OC 0B6A 


0A77 


UE 


00 


10 0E6A 


0A7C 


l*E 


00 


16 0E6A 


0A81 


38 


20 


OAOE 


0A85 


"2 


10 


07 


0A«)8 


jC 


00 


on9 5 


nA8C 


F2 


87 


10 


UA8F 


33 


02 


OAOF 


OA93 


F2 


90 


09 


0A<}6 


3A 


20 


0E7F 



0A9A CO 87 OEBC 
0A9E 02 

0A9F 3B 10 OFPP 

0AA3 C1 A2 OAOA 

0AA7 33 20 OAOE 

0AA3 F2 90 08 

OAAE 3A 10 OEDB 

0AB2 C1 B2 0A9A 



0AB6 3B 
OABA C2 
OABE 71 
OACI 71 
OACH 30 
0AC8 30 
OACC UD 
0>m F2 
OADU l»D 
OAnq F2 
OADC 70 
OADF F2 
0AE2 D2 
0AE5 CO 
0AE9 38 
OAPO F2 
OAFO 39 
OAFU F2 
0AF7 3A 
0AF3 3A 
OAFF 3A 
0B03 
OB07 
OBOB CO 
OBOF 5C 
0B13 OC 
0B19 CO 



3A 

3A 



0A9E 



10 OFPB 

01 OEPU 

AU 00 

A6 00 

AU OHBfl 

A6 OERA 

01 00 O'^l^R 

01 1*9 

01 00 0E3A 

01 HI 

A8 00 

81 07 

01 01 

37 OABE 

20 OAOE 

90 IF 

10 OABF 

10 18 

10 OABF 

10 0AC2 

10 0AC5 

10 0AC9 

10 OEDB 

87 OABA 

09 06 07 

03 0A19 0R2S 

87 OCAD 



70 

71 

72 

73 

74 

75 

7<i 

77 

78 

79 

80 

81 

82 

83 

84 

8S 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

-,03 

104 

105 

106 

107 

103 

109 

110 

111 

112 

1 13 

114 

115 

116 

117 

1 18 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

no 

131 
132 
133 
134 
1 35 
136 
137 



JF SET100 

SBN FLAG.XMO' 

J LOKB 

SET100 nvi TBHP,100 
HEY LA CBNDS.XRI 

ALC 4 (1,XR1) ,TESP 

Ate 6 (1,XRH ,TEKP 
ALC 8 (1,XR1) ,TEf1P 
ALC 12(1, XP1) ,TEnP 

ALC 16 (1, XR1) .TEHP 

ALC 22 (1,XR1) ,TEnP 

LOKB TBN BUDT-1,X*20« 

JT **10 

nvi J!1P*2,X*00« 
J BUSY 

BrjDT,CAP2 

alJSY 

FLA';,X'20' 



JOHP IF NOT 

SET HALF CAP FLAG. 

nODIFY INCB FOR POLL CAP. 
SET POINTER TO COMMANDS TABLE. 
nODIFY THE COnHANDS TABLE TO CORRS 
TO A FrjLL CAPACITY DISK {ADD 100). 



SPINDLE -2- 
J0!1P IF NOT. 
"ODIFY JOBP 



DEFIMED? 
C0.1I1AND IS 'SIO' 



HAL'' CAPACITY 
JU1P IF NOT. 
SET SPIVDLE -2 



OISK? 



HALF CAP. FLAG BIT. 



TBN 

JF 

SBN 

* BGSY * 
********************************************************************* 

* PSOGHA? CHECKS TO :tE SOBE THAT * 

* THE SPINDLES APE NC? INITIALLY * 

* BUSY. * 

^^L^***^**:^t:******'¥*******************-^ ******************************* 



BTSY 



•^OSY 



ERROR 
XL1'02' 
HLTID-1,X' 10' 
3ISY,X' A2» 
3UDT-1,X'20' 
CIPAR 

HLTin-1,X'10' 
BISY.X' 32' 



BOSY CHECK. 



LOG SRFOP - 

•ID -02- 

SET nP ''OR HRIVE 1. 

BRANCH IF SPINDLE -A- 

SPINDLF -2- DEFINED? 

JO*P IF NOT. 

SET DP FOR DRIVE 2. 

BRANCH IF SPINDLE -2- 



IS R!JSY. 



IS BTJSY. 



B 

DC 
SBF 
TIO 
TBN 
JF 
SBN 
TIO 
♦***♦*♦*♦ 

* C"!PAR * 

******* **********m*** ****************************************** ****** 

* PROGRAIH LOADS AND SENSES THE DISK* 

* REGISTERS. A CHECK IS «!ADE TO * 

* ENSURE THAT THE LOADED DATA COB- * 

* PARES -WITH THE SENSED DATA- * 
********************************************************************* 



Cll AF SEP HLTID-1,X'10' 

LA PATRN.XRI 

LT01 LIO (,XR1) ,X' A4» 

LIO (,XR1) ,X' A6' 

SNS STAT1,X'A4' 

SNS STAT3,X'A6' 

CLC (2,XR1) ,STAT1 

JNE «STK 

CLC (2,XR1) ,5TAT3 

JNE MSTK 

CLI (,XP1) ,X«A8' 

JF DAFLG 

LA 1 (,XR1; ,X?1 

B LI01 

DAFLG TBN BTJDT- 1 , X • 20 ' 

J" CLIT 

TBN LI01*1,X'10' 

JT CLIT 

SBN LIO1+1,X»10' 

SBN T.I0-| + 4,X'10« 

SPN I 101*7, X" 10« 

SBN L'01* 11,X'10' 

SBN hl;id-i, X' 10* 

B CIPAR+K 

CLIT live 6 (10,XP1) ,7(, R1) 

nVC BEGIN*3 (4) ,BBNCH2 

B GOOF 



SET nP FOP DRIVE 1. 

LOAD TEST PATTERN ADDRESS. 

LOAD DATA ADDRESS BSGISTFP. 

LOAD CONTROL REGISTER. 

SENSE DATA ADDRESS REGISTER. 

SENS'' CONTROL REGISTER. 

DATA ADDRESS REGISTER AS EXPECTED? 

J-I1P IF NOT. 

CONTROL REGISTER AS EXPECTED? 

JUMP IF NOT, 

LAST TEST PATTERN? 

JUMP IF SO. 

INCFEBENT TEST POINTER. 

GO TEST NEXT PATTERN. 

SPINDLE -2- DEFINED? 

JU?1P IF NOT. 

SPINDLE -2 -REGISTERS CHECKED? 

JUBP IF SO. 

SET UP THE LIO'S AND SNS'S FOR 

SPINDLF -2- ADDRESSING, 



SET UP FOR DRIVE 2. 

GO DO SPINDLE -2- LIO AND SNS. 

CLEAR CONTROL FIELDS. 

STORE NEW BRANCH ADDRESS. 

GO RECALIBRATE DISK (S) . 



DATE 
EC NO. 



13HAR70 
571512 



06APF70 
571516 



221AY70 
571513 



1A0G70 
571531 



010CT70 
571540 



28APR71 
571565 



PROG in 
PAGE 



OAOP-H 
1A 



TBH nAINTEMANCE DIAGHOSTIC PFOGHAB 
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2 



AOFO 



DISK STSTEB TEST HOOnLE 



iIRR LOG OBjrCT CODE 



ADDH STMT SOORCE STATEBENT 













1 38 


« 


LOAD/SESSE ERROR MESSAGE ♦ 




0B1D 


CO 


87 


OEFC 




139 


••STK 


B 


EPROR 




LOG ERROR - LIO/SHS CHECK. 


0321 


01 






0B21 


1«*0 




DC 


XLI'01' 




♦ID -03- 


0B22 


C087 




0B23 


141 




DC 


XI,2'C087« 






0B2« 


OCAD 




0B2S 


142 


BBNCH2 


DC 


AL2(GO0F) 
















143 


*♦♦♦*♦•** 


















144 


♦ DECID ♦ 


















145 


*»*^i*ii*^**^^**^t^ifm*^**^Limif^m** ************************** ************* 












146 


* 








PROGRAH DECIDES IF IT IS SPINDLE * 












147 


* 








-1- OH SPIHDLE -2- TORN FOR A * 












148 


* 








COMMAND. A CHECK IS MADE TO SEE • 












149 


* 








IF THE SPIHDLE IS BOSY. * 












150 


********************************************************************* 


0B26 


OF 


01 


0B25 


0A12 


151 


ITBSY 


SLC 


WORK (2) ,N001 




DECREMENT TIME-OUT COUNT. 


0B2C 


F2 


81* 


05 




52 




JP 


DECID 




CONTINOE IF VALDE IS STILL POSITIVE 


0B2F 


CO 


87 


OEAA 




153 




B 


ERRORS 




LOG ERROR - BOSY TIMB-OOT CHECK. 


OB33 


08 






OB33 


154 




DC 


XI.1'08' 




♦ID -08-. 


0B3(» 


CO 


87 


0DA3 




155 


DECID 


B 


EXI'^ 




EXIT TILL SELECTED SPINDLE NOT BYSY 


OBI"? 


38 


10 


0D8D 




156 




TBN 


ASIO+1,XM0' 




LAS- CMND SET FOR SPINDLE -2- ? 


0B3C 


F2 


10 


12 




157 




JT 


ITSA 




JOMP TO SPINDLE -1- IF SO. 


0B3F 


38 


20 


OAOE 




158 




TBN 


BODT-1,X'20' 




IS SPINDLE -2- DEFINED? 


opai 


F2 


90 


OB 




159 




JF 


ITSA 




GO TO SPINDLE -1- IF SOT. 


0BU6 


CI 


B2 


0B26 




160 




TIO 


ITBSY, X'B2' 




BRANCH IF SPINDLE -2- IS BOST. 


OBttA 


3B 


01 


0CF9 




161 




SBF 


SET,X'01 • 




TORN ON SET BIT IN SET INSTROCTTON. 


OB«E 


F2 


87 


08 




162 




J 


ESDFF 




GO CHECK LAST COMMAND. 


0B51 


CI 


A2 


0B26 




163 


TTSA 


TIO 


ITBSY, X'A7 




BRANCH IF SPINDLE -1- IS BUST. 


0B5S 


3A 


01 


0CF9 




164 




SBS 


SET.X'OI • 




TURN OFF SET BIT IN SET INSTROCTION 


0BS9 


BD 


FF 


00 




165 


EVDFF 


CLI 


(,XR2) ,X'FF' 




END 0'=' TABLE FLAG? 


OBSC 


CO 


81 


OCAD 




166 




BE 


GOOF 




JUMP TO RESET POINTER IF SO. 












167 


********* 


















168 


* DARCK ♦ 


















169 


****************************** ********v********** ********** ********** 












170 


* 








CHECK THE DATA ADDRESS REGISTER ♦ 












171 


-jt 








FOR PROPER INCREMENTATION AFTER ♦ 












172 


* 








DOING A READ OR HPITE. A CHECK IS* 












173 


* 








MADE TO INSURE DATA TRANSHISSTOB * 












174 


* 








AFTER READ AND WRITE COMMANDS. * 












175 


********************************************************************* 


OB60 


39 


07 


onsD 




176 


DAPCK 


TBF 


ASIO*1,X'07' 




LAST COMMAND A SEEK? 


0B6I* 


F2 


10 


96 




177 




JT 


SEKBOS 




JUMP IF SO. 


0B67 


38 


03 


0D8D 




178 




TBS 


ASIO+1,X'03« 




THIS A SCAN TYPE COMMAND? 


0B63 


CO 


10 


OCFF 




179 




BT 


STO 




JUMP IF SO. 


0B6F 


38 


10 


0D8D 




180 




TBN 


ASI04-1,X'10- 




LAST COMMAND FOR -2-? 


0B71 


r2 


10 


07 




181 




JT 


**10 




JUMP IF SO. 


0B76 


30 


AU 


0E8A 




182 




SNS 


DAR,X'A4» 




SENSE DRIVE -1- DAP. 


0B7A 


F2 


87 


04 




183 




J 


*-f7 






0B7D 


30 


BU 


0E8S 




184 




SSS 


DAH,X'B4' 




SENSE DRIVE -2- DAR . 


0B81 


OD 


01 


0E8A 


OEfi=- 


185 




CLC 


DAR(2) ,LSTAD 




DID THE DAR INCREMENT KOR A PEAD? 


0Bfl7 


F2 


81 


3tt 




186 




JE 


CKDATA 




GO ON IF EVERYT;fING DUCKY. 


OBSA 


OD 


01 


OFSA 


OFTO 


187 




CLC 


DAR(2),LSTWR 




DID THE DAR INCREMENT FOR A WRITE? 


OBOO 


F2 


81 


2B 




189 




JE 


CKDATA 




GO ON IF EVERYTHING DUCKY. 


0B91 


OD 


01 


0E8A 


0E72 


■•89 




CLC 


DAR{2),LSTWR+2 




DID THE DAR INCREMENT FOR A WRITE? 


0B99 


F2 


81 


22 




190 




JE 


CKDATA 




GO ON IF EVERYTHING DUCKY, 


3B9C 


3D 


00 


0E7F 




191 




CLI 


CCWA-3,X'0O' 




IS THE FLAG BYTE CLEAR? 


OBAO 


F2 


81 


16 




192 




JE 


ER09 




JOMP IF SO. 


0BA3 


38 


10 


0D8D 




193 




TBN 


ASIO*1,X'10' 




THIS A DRIVE 2 COMMAND? 


0BA7 


F2 


10 


07 




194 




JT 


♦ ♦10 




JUMP IF SO. 


OBAA 


30 


A2 


07.BP 




195 




SNS 


STAT1,X' A2' 




CLEAR DBIVE 1 STATUS. 


OBAE 


F2 


87 


oa 




196 




J 


*+7 






0BB1 


30 


B2 


0E88 




197 




SNS 


STAT1,X'B2' 




CLEAR DRIVE 2 STATUS 


OBBS 


CO 


87 


OCEE 




198 




B 


SIO 




GO TO NEXT COMMAND. 


0BB9 


CO 


87 


OEAA 




199 


EP09 


B 


ERRORS 




LOG ERROR - OAR INCR CHECK. 


OB^^D 


09 






OBBO 


200 




DC 


XLT09' 




♦ID -0<»- 


0BR5 


38 


02 


0D8D 




201 


CKDATA 


TBN 


ASIO+1,X«02« 




LAST COMMAND A WRITE? 


0BC2 


CO 


10 


OCEE 




202 




BT 


SIO 




JUMP IF SO. 


OBC<S 


OD 


FP 


OC33 


0B19 


203 




CLC 


DECID*255(256) , 


,DATA*255 


OBCC 


F2 


81 


29 




204 




JE 


XFRR 




JUMP IF DATA IDD NOT TRANSFER. 


OBCF 


8D 


02 


00 0E33 


205 




CLC 


{3,XS2) ,CflNDSt25 


THIS A CK TRACK READ COMMAND? 


HA'^E 


13nAP70 


06APP70 


22!1Ay70 


01AO<370 010CT70 


28APR71 PROG ID OAOF- 


EC NO. 


•i71S12 


571516 


571513 


571531 


571540 


57 1565 


PAGE 2 



IBB HilHTEHANCE DIHGNOSTIC PROGBUN 



PABT HO, 
PAGE 



51296S0 
2» 



KOFU 



DISK SYSTEH TEST BODOLE 



EST* LOC OBJECT CODE 

OBDU CO 01 OCEE 

0BD8 CD FF 0B19 002"^ 

OBDE CO 81 OCEE 

0SE2 39 10 0E6C 

0BE6 F2 90 OA 

0BE9 CD FF 0B19 0C26 

OBEF CO 81 OCEF 

OBFl CO 87 OEAA 

0BF7 DC 

OBFS CO 87 OEA?. 

OBFC OA 



ADDS STMT SOORCE STATEHENT 



0BF7 



OBFC 



OBFD OC 

0C03 38 

0CO7 F2 

OCOA 30 

OCOE F2 

0C11 30 

0C1S 38 

0C19 F2 

OCIC CO 

OC20 0? 

002*; CO 

0C2A CO 

0C2E 07 



01 0B25 0n35 

10 0D8D 

90 07 

B2 OEBB 

87 OU 

A2 0E88 

10 0EP8 

90 13 

87 0DA3 

01 0B25 0A12 

8U 0C03 

87 OKAA 



0C2E 



0C2F 


38 


10 


OD'jD 




OC33 


F2 


10 


OF 




0C36 


OC 


03 


0E90 


0F32 


0C3C 


OC 


00 


ovec 


0E3D 


0CU2 


F2 


87 


OC 




OCUS 


OC 


03 


0E90 


0E8 2 


0C4B 


OC 


00 


0E8B 


058D 


0C51 


OC 


03 


0E86 


0E90 


0C57 


3B 


FF 


0E86 




0C5B 


08 


00 


0C76 


0D8D 


0C61 


08 


00 


0C7 2 


0D8D 


0C67 


08 


00 


0C6F 


0D8D 


0C60 


CI 


00 


OCAS 




0C71 


31 


A6 


0E64 




0C75 


F3 


A1 


01 




0C78 


OC 


01 


032S 


01)35 


0C7E 


CO 


87 


0DA3 




0C82 


08 


00 


0C97 


ODRD 


0C38 


OF 


01 


0B25 


0A12 


0C9E 


F2 


84 


OS 




0C91 


CO 


87 


OEAA 




0C9S 


08 








0C96 


CI 


A2 


0C7E 




0C9A 


OD 


00 


0E8E 


0Fa4 


OCAO 


F2 


81 


4B 




0C»3 


CO 


87 


OEAA 




0C117 


Ott 








0CA8 


CO 


87 


OEAA 




OCAC 


OE 









0C95 



OCA 7 



OCAC 



206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

2 30 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

2 5^ 

260 

261 

262 

263 

264 

265 

266 

2f^7 

26R 

269 

270 

271 

272 

273 



CROC 



XFE3 



sio jonp 

DATA+255{256) ,ITBSY*255 

SIO jnsp 

READ*2,X'10' THIS 

CROC in«!P 
DATA+255(256) ,ITBSY+256 

SIO JOflP 

SHPOBS LOG 

XLI'OC" *ID 

ERRORS LOG 

XLI'OA" *ID 



BNE SIO JOnP IF NOT. 

CLC 

BE 

TBN 

JF 

CLC 

BE 

P 

DC 

B 

DC 

♦ SEKBOS * 

♦ SEEK "lUSY IS lONITOHED AND CHECK-* 

♦ ED FOB SOT TIMING OUT. * 
**•******♦♦***♦*♦»**♦**«♦»♦***♦♦♦****♦**••♦♦**♦♦»**♦*»***♦♦*♦»***♦♦♦* 



IF DATA WAS WRITTEN AND PEAD OK 
THE ALTERNATE PATTBT!N? 
IF NOT. 

IF DATA WAS WRITTEN AND PEAD OL 
ERROR - HRTTF DATA CHECK. 
-OC- 

ERROP - READ DATA CHECK. 
-OA- 



HORK (2) .SKTIS 

ASI04-1,X' 10' 

*+10 

STA'i : ,X' 32' 

*+7 

STAT1,X' A2' 

STATI.X* 10' 

CKSSEK 

EXIT 

WORK (2) ,N001 

SNSIT 

ERRORS 

XL1 •07» 



STORE SEEK TIBE-OUT VAIUS. 

THIS A DRIVE 2 C01SAND? 

J DSP IF NOT. 

SENS'; DRIVE 2 S-A-^nS BYTES 



SENSE DRIVE 1 
SEEK BDSY 31^ 
J!JHP IF NO". 
GO EXI-^. 

DECREIEST SEEK T 
CONTINUE LOOP IF 
LOG EPPHF - SEEK 
*ID -07-. 



STATUS 
ON? 



BYTES 5 1. 



SEKBOS MVC 
SNSIT TPN 

JF 

SNS 

J 

SNS 

TBN 

JF 

B 

SLC 

BP 

B 

DC 

* CKSEEK * 
«♦*♦♦♦*♦♦*♦♦♦***♦*♦*♦♦***♦♦♦♦***♦*♦**♦♦«*♦«»**♦*****♦*♦***♦♦♦♦**♦♦*♦* 

* THE SEEK COMMAND TS CHHCKED ""0 * 

* SEE IF THE HEADS ARE AT THE COP- • 

* RECT TPAC:. * 
•**♦*******•»*****•***»****•♦♦♦♦♦****♦**♦♦♦***«**»♦♦*******♦*••****♦♦ 



:?!E-0D7 VALUE. 
STILL POSITIVE. 
TI^E-OUT CHECK. 



CKSEEK TBN 
JT 
«VC 

nvc 

J 

CKY? avc 

MVC 

CKYCK HVC 
SBF 

nzz 

TIOID TIO 

LIO 

VER SIO 

nvc 

-JOXIT B 

nzz 

SLC 

JP 

B 

DC 
TIO TIO 

CLC 

JE 
* SEEK CHECK 



SRROE 



B 

DC 
B 
DC 



AST0+1,X' 10' 

CKYB 

CCWX(4) ,CCSA 

AF (1) ,CCWX-3 

CXVCK 

CCWX(4) ,CCW3 

BF (1) ,CCWX-3 

rCWY{4) ,CCWX 

CCWY.X'FF" 

VER+I ,ASI0+1 

V5R-3, ASTO+1 

TIOID+1 , fSIO+l 

EPR0E,X'0O' 

TSTID,X' A6' 

X'01« ,X' A1 ' 

WORK(2) .BSYTIH 

EXIT 

TI0+1,ASI0*1 

WORK (2) ,M001 

TIO 

ERRORS 

XL1 'OW 

GOXIT.X* A2' 

CCHX-2 (1) ,CCWY-2 

SIO 

"IFSSAGES * 
ERRORS 
XL1'04' 
ERRORS 
XLI'OF' 



ID. 

0. 

Sin. 



LAST 3FEK FPO« SPINDLE -2-? 

JOnP IF SO. 

STORE SPINDLE -1- CONTPOL REGISTER. 

STORE FLAG BYTE. 

STORE SPINDLE -2- CONTROL R'=T,ISTER. 

3T0RE FLAG BYTE. 

SET \i? CONTROL FIELD FOR PEAD 

SET CONTROL FIELD'S N BYTE TO 

SET UP DISK BET/SPINDLE ID IN 

BflLD LIO FOR CORRS SPINDLE. 

BDTLD OP TIO COIHAN'D. 

BRANCH IF DRIVE IS NOT READY. 

LOAD FCR WI-^H TEST ADDRESS. 

ISSUE A PEAD VEPIFY C0!11AN0. 

STORE READ BDSY TIIfE-OUT COUNT. 

RETURN TO DCP 

SET OP TIO FOR BUSY COKftAND. 

DECBEflEN''" BUSY COUNT. 

CONTTNtlE IF STILL POSITIVE. 

LOG ERROR - BUSY TI1E-0UT CHECK. 

*ID -08-. 

RETURN TO DCP IF BUSY. 

EXPECTED AND ACTUAL TPK 

JOHP ID SO. 



ID THE SAflE? 



LOG 


ERROR - 


- SEEK TRAVEL 


♦ID 


-04-. 




LOG 


ERROR - 


- NOT READY C 


*ID 


-0E-. 





CHECK. 



CHECK. 



^*«t**************************0****»******************** *******»**-** 



DATE 
EC NO. 



13MAR70 
571512 



06APR70 
571516 



22flAY''0 
571513 



01AUG70 
571531 



01OCT70 
571540 



28APR71 
571S65 



PROG ID 
PAGE 



OAOF-4 
2A 



IPH SHINTESASCE DTHGHOSTIC PROGRH?! 



PART no. 
PAGE 



5129650 
3 



KQTU 



DISK SYSTf..! TSST MODULE 



ERR LOC OBJECT CODE 



OC;>D C2 02 OSIA 
0C31 3A 01 0CF9 



ADDR STHT SOORCE STATEHENT 



OCBS 


39 


01 


0E6C 


Od9 


F2 


10 


07 


OCBC 


3A 


01 


0E6C 


OCCO 


F2 


87 


OU 


0CC3 


33 


01 


056C 


0CC7 


38 


01 


0006 


OCCB 


F2 


10 


07 


OCCE 


3A 


01 


0D06 


0CD2 


F2 


87 


07 


0CD5 


33 


01 


0D06 


0CD9 


F2 


97 


12 


OCDC 


3R 


01 


OCFD 


OCEO 


r2 


10 


07 


0CE3 


3A 


01- 


OCFD 


0CE7 


F2 


37 


Ott 


OCEA 


33 


01 


OCFO 



OCEE 


OC 


FF 


031<? 


0C33 


0CF4 


2C 


00 


0D9D 


03 


OC'9 


33 


10 


008D 




OCFD 


3A 


09 


0D8D 




0D01 


2C 


02 


0582 


02 


ODOf 


33 


80 


0E81 




ODOA 


33 


10 


0D8D 




ODOE 


F2 


10 


17 




0D11 


OC 


02 


0D83 


0E7A 


0D17 


OC 


00 


0E7F 


0E9C 


0D1D 


33 


10 


0D85 




0D21 


3B 


10 


0Dfi9 




0D25 


F2 


87 


2S 





0D28 OC 
0D2E 38 
0D31 F2 
0D3i» 38 
0D37 F2 
0D3A 38 
0D3E F2 
0D«1 39 
0D45 F2 
0D«8 OC 
ODUE 3A 
0D52 3A 
0DS6 BD 
0DS9 F2 
ODSC OC 
0D62 F2 
0D6S DC 
0D63 38 
0D6F F2 



02 0DR3 0E7D 

ni 03 

10 m 

02 03 

90 OE 

30 0E7E 

10 07 

FO 0E7E 

90 HE 

00 0E7r 0F8B 
10 ODnS 

10 0D89 
A2 03 
81 09 

01 0E6A 0F69 
87 C6 

01 0E6A OEfiC 
10 0D8D 
90 OE 



27!* 
27S 
276 
277 
278 
279 
280 
231 
282 
283 
2811 
28^ 
286 
287 
288 
289 
290 
291 
292 
293 
29i» 
295 

2 '6 
297 
298 
299 
300 
301 
302 
303 
30a 
305 
306 
307 
308 

3 09 
310 
311 
312 
313 
31« 
315 
316 
317 
318 
319 
320 
321 
322 
323 
3- 

3 

3 

3^l 

328 

329 

3 30 

331 

332 

333 

33« 

335 

336 

337 

338 

339 

3<»0 

3ai 



* REINITIALIZE COadANDS TABLE POINTER ««:; .'.L'iER THE SELECTION * 

• OF THE HEADS AMD/OR DISK. • 

***«*«*«**«4i«4i* ****** **«*«*«*******«******4> «**♦**•**#*«**«** ********* 

GOOF LA C"!NnS,XR2 RESTORE CBNDS TABLE POINTER. 

SBN SE:,X«01« reset for SPINDLE -1-- 

**********************************«******************<**************** 

* NOTE - LA3LE 'ITSSY' BOST BE ON AN EVEN ADDRESS FOR THE ♦ 

♦ FOLLOWING TO WORK PROPERLY. ♦ 
********************************************************************* 



D0HD1 



FRDSK 



READ+2,X'01» 

TBSOFF 

REAO*2,X»01» 

♦ *7 

READ*2,X«01' 

STHDA,X'0T 

DOHD1 

STHDA,X«01 • 

FRDSK 

STHDA,X«01» 

SIO 

SBTR, X'OI" 

TRNON 

SETR,X'01« 

*t7 

SETR, X'OI* 



ALTERNATE THE HPITE AREA ADDRESS 
POINTER SO THAT DIFFERENT DATA IS 
WRITTEN ON EACH CE SECTOR HITH 
EACH NEW TABLE PASS. 

LAST COHHAHD FOR HEAD 0? 

JUSP IF SO. 

FIX INSTROCTIONS TO SET HEAD 0. 

GO TEST OTHER DISK. 

FIX INSTRUCTION TO SET HEAD 1. 

GO T!-:ST HEAD 1 C0n?1ANDS. 

INSTROCTIOS TURNING OFF FIXED DISK? 

joap IF 50. 

SET IF TO TORN OFF FIXED DISK BIT. 

SET "T TO TORN OF FIXED DISK BIT. 



TFN 

JT 

SBN 

J 
TRNOFF SBF 

TBN 

JT 

SBN 

J 

SBF 

J 

TBN 

JT 

SBN 

J 
TRNOH SB^ 
******** 

♦ SIO * 

********************************************************************* 

♦ THE LTO'S AND SIO COWHANDS ARE * 

* SET HP AND EXECUTED. INDEX REGIS-* 

* TER 2 CONTAINS THE POINTER FO? * 

• THE COSIHANDS TABLE. * 

***************************************************** *****•*'^'!''^****** 



SIO 

SET 

SETF 

STHDA 



DO A 



BVC 
BVC 

SBF 
SBN 

avc 

SBF 

TBN 

JT 

nvc 

flVC 
SBF 
SBF 
J 



DATA+255 (256) ,DECID + 255 FILL READ FIELD HITH CODING. 



ASIO + 1 (1) ,3(,XR2) 
AST0«-1,X' 10* 
ASTO*1,X'08' 
CCWA,2(3, XR2) 
CCSA-1, X««0' 
ASI0*1,X»10' 
SIOB 

TIOTT+3 (3) ,TI0A*2 
CCWA-3(1) ,AF 
LI0A*1,X' 10" 
LI0B+1,X' 10' 
RDWPT 



STORE NEW COnnAND. 

TURN -B- BIT ON/OFF. 

TORN FIXED DISK BIT ON/OFF. 

SET nP CONTROL REGISTER. 

TORN ON/Ol'F HEAD BIT. 

IS THIS A SPINDLE -2- C01BAND? 

JOHP IF SO. 

SET OP DRIVE 1 TEST I.O COHHAND. 

SET FLAG BYTE TO COBRS. 

SET THE LIO COMHANDS FOR SPINDLE -1- 

GO EXECUTE THE START I/O. 



********************************************************************* 

* SKIP SPINDLE -2- WRITE CHND I? 2»S CAP. IS DIFFERENT FROM TS* 

********************************************************************* 



SIOB IVC 

TBN 
JT 

"TflVAL TBN 
JF 
TBN 
JT 
TBF 
JF 
HVC 
SBN 
SBN 
CLT 
JE 
BVC 
J 

BVC 
TBN 
JF 



DOITB 



RDWRT 



FIXIT 



TiniT + 3 (3) ,TI0B + 2 

3 (,XR2) ,X'01» 

DOITS 

3 (,XF2) ,X'02' 

DOITB 

FLAG,X' 30" 

DOITB 

FLAG,X'F0' 

TNTNC 

CCW3-3(1) ,3F 

LI0A+1,X'10' 

LI0B*1,X> 10' 

3 (,XR2) ,X' A2' 

FIXIT 

READ (2) ,READ-2 

♦ ♦9 

READ (2) ,READ*2 

ASI0+1,X' 10" 

TIOIT 



SET UP DRIVE 2 TEST I/O COHHAND. 

IS THIS A NON-HRITE CHND? 

JOnP IP SO. 

IS THIS A WRITE CHSD? 

jnHP IF NOT. 

BOTH SPINDLES HALF CAP.? 

JUMP IF SO. 

ARE BOTH SPINDLES FULL CAP.? 

JOHP IF NOT. 

SET FLAG BYTE IN CONTROL FIELD. 

SET LIO COHBANDS FOR SPINDLE -2-. 

CURRENT COHBAND A WRITE. 
JOBP IF SO. 

SET ADDRESS FOR READING- 
SET ADDRESS FOP WRITING. 
THIS A DRIVE 2 COHBAND? 
JUSP IF NOT. 



DATE 
EC NO. 



13BAP70 
571512 



06APR70 
571516 



22HAY70 
571513 



01AOG70 
571531 



010CT70 
571SttO 



28APP71 
57156 . 



PROG ID 

PUCJE 



OA0F-* 
3 



IBH HA^HTENANCS DIAGNOSTIC PROGRAH 



PART NO. 

PAGE 



3A 



AOFU 



DISK STSTEK TEST MODOIF 



BFR LOC OBJECT CODE 

0D72 39 08 ODBD 

0D76 F2 90 07 

0D7q 38 01 OAOF 

007D F2 10 6E 



ADDR STMT SOOPCE STATEHEHT 



0D80 CI 
0D8U 31 
0D88 31 



00 0000 

A6 0E6 

AU OF' 

ODBC F3 00 00 

0D8F 38 10 0D8D 

0D93 F2 90 03 

0D96 E2 02 0*; 

0D99 OC 01 0B25 0D35 

0D9r CO 87 0B34 



0DA3 3tt 08 ODBS 

0DA7 3D AO OAOO 

ODAB F2 81 OU 

ODAE CO 87 OAOA 

0DB2 CO 87 0000 



0DB6 


30 


A2 


OESfl 


ODBA 


30 


A3 


OEflA 


ODBE 


F2 


87 


OB 


0DC1 


30 


F>2 


0588 


0DC5 


30 


B3 


0E8A 


0DC9 


38 


ttO 


0E87 


ODCD 


F2 


90 


OTf 


ODDO 


39 


BF 


0E87 


0DD4 


F2 


90 


07 


0D07 


39 


80 


0E89 


ODDB 


F2 


10 


05 


ODDS 


CO 


87 


OEAA 


0DE2 


05 






0DE3 


OC 


03 


0DE6 0E7*; 


0DE9 


CO 


87 


OEAA 


ODED 


06 






ODEE 


CO 


87 


0DA3 


0DF2 


38 


10 


ODSD 


0DF6 


F2 


10 


OF 


0DF9 


33 


20 


OAOE 


ODFD 


CO 


90 


OCAD 


OE01 


3B 


01 


0CF9 


OF05 


F2 


87 


OE 


OE08 


3A 


1 


OCFO 


OEOC 


E2 


02 


oa 


OEOF 


BD 


FF 


00 


0F12 


CO 


81 


OCAD 


OEIfi 


CO 


87 


OCF 



0DE2 



ODED 



3U2 

3U3 

3UU 

3t»S 

3«6 

3U7 

3(i8 

349 

3 50 

351 

352 

353 

35U 

355 

356 

3 57 

358 

359 

360 

361 

362 

363 

36U 

365 

366 

367 

368 

369 

370 

371 

372 

373 

37U 

375 

376 

377 

378 

379 

380 

381 

382 

383 

33a 

385 

386 

387 

388 

389 

390 

391 

392 

393 

39i» 

395 

396 

397 

398 

399 

ttOO 

no: 

002 

403 

not 

405 
406 
407 
408 
409 



TBV ASIO+1,X»08> 

JF TIOIT 

TBN BUDT,10D3 

JT J?"?? 

TIOIT TIO *-*,X«00« 

LIOA LIO DFCR,X'A6« 

II09 LTO READ,X'A4» 

ASIO STO X'00«,X«00' 

CKLST TBS A5IO+1,K»10' 

JBP JF DOXIT 

INTNC LA 4 (,XP2) ,XB2 

DOXIT SVC W0PK(2) ,3SYTIfl 

B DECID 



FIXED DISK SPECIFIED? 

JUHP IF NOT. 

THIS A HOD 3 SYSTSH? 

jr.nr z' so. 

COFRESVCNDIMG TTO FOR THE DT?I7F. 

LOAD DISX TOSTROI REGISTEP. 

LOAD DISV DATA ADDRESS HEGISTE5. 

TSSUF TKTS CO?inAND. 

LAST COBMASD FOR SPINDLE -2-? 

JOKP IF NOT. 

INCREMENT POINTER FOR NEXT COHHAND. 

STORE BOSY TI"!E-OUT 7AL0E. 

iO DECIDE NEXT COBHAND. 



* EXIT * * 
******** THIS S'JBPO'JTINE IS A LINK 9ETWFEN* 

* THIS "ODOLE AND DCP. ♦ 
^iii^**^*^***^i**m************************tt****** ******* **************** 

EXIT ST XIT+3,ARR STORE rODOLF PETORN ADDRESS. 

CLI X"OAOO',X' AO' THIS ICDTJLE IN STSTES TEST? 

JK XIT JO«P IF NOT. 

B SYS PETOFN TO STSTE-I SUPERVISOR. 

XIT 3 ♦-♦ RETURN TO ISODDLE. 

********************************************************************* 

* WHATX * * 

* SUBROUTINE IS CALLED WHEN A SPIN-* 

* DLE DROPS READY. TH? STATUS !?YTES* 

* A?"^ SENSED AND ASALYISED FOR ANY * 

* EP''0? CONDITIONS. ♦ 
************* *********,t**************************** ****************** 



HHATA 



SHATB 



CKODT 



SNS 

SNS 

J 

SNS 

SNS 

TBN 

JF 

T3F 

JF 

TBF 

JT 



STAT1,X' A2' 

STA'T'3,X' A3' 

CKOUT 

STAT1,X' 32' 

STAT3,X'B3* 

STAT0,X'40' 

OOPS 

STATO,X'BF' 

OOPS 

STAT2,X» 80' 

NTROY 



* STATUS ERROR MESSAGE * 

OOPS 3 ERRORS 

DC XL1'05' 

STRDY HVC NTPDY+1 (4) , JKPP 

9 ERRORS 

DC XL1'06' 

JHPR B SXI-" 

TBN ASTO+1,X'10' 

JT DUKY8 

TBN BnD?-1,X'20' 

BF GOOF 

SBF SET,X'01' 

J GOSIO 

SBN SET,X»01' 

LA 4 (,XR2) ,XR2 

CLI (,XR2) ,X'FF' 

BE GOO? 

B SIO 



nOKYB 
SKIP 



SENSE SPINDL -1- STUTUS BYTES 5 1. 

SENSE SPINDLE -1- S'^AT'JS BYTES 2 R 3 

GO CHECK RESULTS. 

SENSE SPINDLE -2- STATES BYTES 5 1 

SENSE SPINDLE -2- SNATHS BYTES 2 5 3 

INTERVENTION BIT ON? 

JU1P IF NOT. 

IS STAT'JS BYTE AS EXPECTED? 

JUMP IF NOT. 

IS STATUS BYTE 1 AS EXPECTED? 

PRIST -SOT READY- I"' SO. 

LO'; ERROR - STATUS CHECK 

*ID -05- 

HOVF IN BRANCH CO??HAND. 

LOG ERROR - NOT READY. 

♦ID -06- 

GO EXIT. 

IS DUTVE 2 NOT REAPY? 

JU1P IF SO- 

DRIVS 2 DEFINED? 

BRANCH IF NOT. 

SET UP FO? DRIVE 2 CKND. 

SET UP FOB DRIVE 1 CWND, 

INCR POINTER FOR NEXT C1ND. 

END OF TABLE FLAG? 

JUHP IF SO. 

GO EXECUTE THIS NEW C1ND. 



GOSIO 
********************************************************************* 

* COWHANDS TABLE ♦ * 

* THE NSXT DISK ■TOHIAMD IS SELEC-^ED* 

* FR01 THIS TABLE. THE TABLE ECR«!AT* 

* IS AS FOLLOWS. ♦ 

* * 

* DC XL3'DISK CONTROL FIELD' ♦ 

* DC XL1' START I/O C011HAND' ♦ 
********************************************************************* 



DATE 
EC NO. 



13nAR7C 
571512 



06APR70 
571516 



22HAY70 
571513 



01AUG70 
571531 



1OCT70 
S71540 



28APR71 
571565 



PROG ID 
PAGE 



OAOF-4 
3A 



IBM RMHTErrASCE DIAGSOSTIC PROGRAH 



PART HO. 
PAGE 



5129650 
4 



AOPtt 



OISK SYSTFH TEST HODOLE 



ERP LOC OBJECT CODE 



ADDS STHT SOOBCE STATEHEHT 



0F1A 


OOOOFF 


051D 


AO 


0F15 


670167 


0E21 


AO 


0522 


670000 


0E2S 


A2 


0F26 


670000 


0K29 


AO 


0E2A 


670000 


0E2D 


A1 


0E2'' 


OBOOSF 


0E31 


AO 


0E12 


090300 


0H35 


M 


0E36 


OF 01 07 


0E1<» 


AO 


0E3A 


0F2<?00 


0E3D 


A1 


OEir 


tt60137 


OEUI 


AO 


0E42 


460000 


0E45 


A3 


0EU6 


3C00OA 


OEUg 


AO 


OEUA 


3C5CO0 


0E4D 


A1 


0E4P 


2«i0014 


0E51 


AO 


0E52 


290101 


OESS 


AO 


0ES6 


270002 


OS'^<i 


AO 


OESA 


«»C012'i 


0E5D 


AO 


0E5E 


4C0C00 


0F61 


A1 


0F62 


FF 



0E63 


0EB3 


0565 


0E7F 


0E67 


0A1A 


0F69 


3000 


0E6B 


0B26 


0E6a 


031A 


0S6F 


0C26 


0F71 


0C27 


0E73 


C0R7 


0E7S 


ODSF 


0E77 


OOAO 


0F79 


0D96 


0E7B 


30 


0E7C 


0DC1 


0E7E 


00 



OEIA 
0E1C 
0E1D 
OE20 
0E21 
0E24 
0E25 
0F28 
0E29 
0E2C 
0E2D 
OF 30 
0E31 
0E3tt 
0E3S 
0E3B 
0E39 
0E3C 
OF 3D 
OF 40 
0E41 
0E44 
0F4S 
0E4fl 
0F49 
0F4C 
0E4!) 
0F50 
0F51 
CEStt 
0ES5 
OESq 
0ES9 
0E5C 
OE'iD 
0E60 
0E61 
0E62 



0E64 
OS 66 
0F69 
0E6A 
0E6C 
0E6F 
0F70 
0E72 
0E74 
0E76 
0F78 
0E7A 
0E7B 
0E7D 

0E7C 



0E7F 00000000 
0E83 AA5565A8 
0E>?7 00 
OESq 00 



0F82 
0E86 
0F87 
OE°iR 



410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

42- 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

4 36 

437 

433 

439 

440 

441 

442 

443 

444 

445 

446 

447 

449 

449 

450 

451 

452 

453 

454 

455 

456 

457 

i,5« 

459 

460 

461 

462 

46 3 

464 

465 

466 

467 

469 

469 

470 

471 

472 

473 

4 74 

475 

476 

477 



CMHDS 



EQO 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



XL3»0000FF« 

XLI'AC 

XL3»670167« 

XLI'AO' 

XL3'670000» 

XL1'A2' 

XL3>6-'0000' 

Xtt'tO' 

XL3"6'»0000' 

XLI'AI* 

XL3'08005F' 

XL1 ■ A0« 

XL3'O8O800' 

XLI' "I ' 

XL3'0.'0107' 

XLI'AO' 

XL3'0F2900' 

XL1' A1' 

XL3'460137' 

XLI'AO' 

XL3'460000' 

XL1'A3« 

XL3'3C000A« 

XLI'AO' 

XL3'3C5CO0' 

XLI'AI' 

XL3'290014' 

XLI'AO* 

XL3'290101' 

XLI'AO' 

XL3'270002' 

XLI'AO' 

XL3'4C0125' 

XLI'AO' 

XL3'4COCO0' 

XLTA1' 

XLTFF' 



COHBANDS LOCATIOKS 
SEEK TRACK 00 



DC 
DC 
DC 
DC 
DC 
************* 

♦ CONSTANTS * 



SEEK 

(HALF 

HFITE 


CE TRACK 
CAPACITY) 
SECTOR 


SEEK 


CE TRACK 


READ 


SECTOR 


5i;ek 


TRACK 8 


READ 


SECTOR 2 


SEEK 


TRACK 15 


HEAD 


SECTOR 10 


SEEK 


TRACK 70 


SCAN 


EQL SECTOR 


SEEK 


TSAC'< 60 


PEAD 


SECTCR 23 


SEEK 


TRACK 40 


SEEK 


TRACK 41 


SEEK 


TRACK 39 


SEEK 


TRACK 76 


READ 


SECTOR 3 



** END OF TABLE ** 



^i^*^0^m* ******************* ************* 



PEAD 

LSTAD 
LSTWP 



JflPP 

TIOA 

TIOB 



"STID DC AL2(CCHY-3) 

DFCR DC AL2(CCWA-3) 

DC AL2(DA'^A) 

DC AL2(*-*) 

DC AL2(rTBST) 

DC AL2 (DATA + 256) 

DC AL2{IT3SY*256) 

DC AL2 (ITBSY + 257) 

DC XL2'C087» 

DC AL2(JMPR) 

DC XL2'A0' 

DC AL2(WHATA) 

DC XLI'BO' 

DC AL2(HHATB) 
****' ************************ 

FLAG DC XLI'OO' 

* 

^^**tc,tt ******* *************** 

* 
*********************** 

* PESERVED STORAGE * 
***************************** 

CCWA DC XL4'00000000' 

CCVY DC XL4' AA5565A8' 

STATO DC XLI'OO* 

STAT1 DC XLI'OO' 



FLAG BYTE. ♦ 

BIT 2 - SPINDLE -2- HALF CAP. * 

BI-^ 3 - SPINDLE -1- HALF C?.-». * 

0^t************* *■■******* **************** 



^^^^ *************** ********************** 
CaPRENT COS'-ROL REGISTER STORAGE. 
TEMPORARY SOORA'JE OF CONTROL REG. 
STATnS BYTE STORAGF. 
STAT'JS BYTE 1 STORAGE. 



DATE 131AP70 

EC NO. 571512 



06APP70 
571516 



22BAT70 
571513 



01AOG70 
571531 



01OCT70 
571540 



23APR71 
571565 



PPOG ID 
PA3E 



OAOr-4 
4 



IBH H*I»TE!IA!ICE DIAGNOSTIC PBOGSAH 



PART NO. 
PAGE 



UA 



AOFU 



DISK SYSTEH TflST flODULE 



EHP toe OBJECT CODE 



ADDS STHT SOUHCE STATEMENT 



0F89 


00 






0E89 


478 


STAT2 


DC 


XLI'OO' 


STATUS BYTE 2 STORAGE. 


OERA 


00 






OEaA 


479 


STAT3 


DC 


XLI'OO* 


STATHS BYTE 3 STORAGE. 


OFBB 


00 






0E8B 


4 80 


BP 


DC 


XLI'OO' 


FLAr; PYTE STORAGE FOR -2-. 


05SC 


00 






OERC 


481 


AF 


DC 


XLI'OO' 


FLAG 3YTE STORAGE FOR -1-. 


OESO 


OOOO'jOOO 




0E90 


482 


ccwx 


DC 


XL4»00000000» 


TS'^OSARY CCH STORAGE. 


0F91 


00 






0E91 


483 




DC 


XLI'OO' 


'•;.ESRIHG BYTE. 












484 


**m*** ********************************************* $:*****•*****•****** 












485 


* 5FTAB ♦ 
















486 


*##**««*« 




ERFOP PEC05DISG TABLE FOR?!A'" - * 












487 


* 


















488 


* 






DISK CFS * 












489 


* 






AOXX * 












490 


* 






AOXX ♦ 












491 


* 






AOXX ♦ 












492 


♦*****••**♦**♦***•*•**♦»»*♦»*»**♦**************♦♦♦**♦♦♦♦*♦♦***♦**»♦♦♦ 










0E92 


493 


EPTAB 


EOO 


* 




0E92 


80CR 






0E93 


494 




DC 


XL2'8008' 




0E94 


CaC9E2D2i»0C3D2E2 


0E9B 


495 




DC 


CLR'DTSK CKS' 




0E9C 


4002 






0E9T) 


496 




DC 


XL2'4002' 




0E9E 


0000 






0E9F 


497 




DC 


XL2'0000' 




OEAO 


tt002 






OEAl 


498 




DC 


XL2'4002' 




0EA2 


0000 






0EA3 


499 




DC 


XL2'0000' 




OEAU 


4002 






0EA5 


500 




DC 


XL2'4002' 




OEAf- 


0000 






0EA7 


501 




DC 


XL2'0000' 




0EA<1 


FFFF 






0FA9 


502 




DC 


XL2 • FF^'^ ' 














503 


♦**♦*♦♦*•»*♦♦**»*♦♦♦♦•***»*♦****♦**»*♦*♦**♦***♦♦**«****♦»♦*♦♦♦*»♦♦**♦ 












504 


* FgpoR ♦ 




♦ 












505 


***♦♦♦*♦* 




SUBPOOTIN^: STORES EPPOP HALT ID ♦ 












506 


* 






IN ■'HE EPPQW LOG-OUT TA3LF AMD * 












507 


* 






THEN HALTS. * 












508 


***♦*»♦♦**»♦♦*♦♦*♦*♦♦♦*•»*♦******♦♦»♦*»***♦***♦*♦** ***i *♦♦*«*♦♦♦»**♦♦ 


OEAA 


3R 10 


0D81 






50'? 


FPPOPS 


TBN 


•" TO I? ♦ 1 , X ' 1 ' 


THIS A DPIVF 2 -PPO?? 


OEAE 


F2 10 


07 






510 




JT 


*+10 


JUHP I'' SO. 


0E91 


33 10 


OSDF 






511 




5PF 


HLTID-1,X' 10' 


SET 'JP '='OP DRIVE 1. 


0EB5 


F2 87 


04 






512 




J 


**-l 




OEBS 


3A 10 


OEDB 






513 




SEN 


HLTID-1,X'10« 


SP:T JP FOn DRIVE 2. 


OEBC 


34 08 


0FC5 






514 


-R50B 


ST 


♦♦9,AP? 


STOPF "pnOP TD A-^0 = ESS. 


OECO 


OC 00 


OEDC 


0000 




515 




MVC 


KL^-TDfl) ,*-* 


STf^RE THE '^PROR ID. 


OEcf; 


C2 01 


0E92 






516 




LA 


EPTAB.XPI 


IVI''IALI7F THE TABLE Pni»I""EP. 












517 


* 


OPDA'^E FPPOP ■^ABIE L0''O!IT. 




OECA 


5C 01 


OD 11 






518 




nvc 


13{2,XP1) .17(,XP1) 


".CiVy. !IP PPEVTOnS EPPOPS. 


(lECE 


5C 01 


11 15 






519 




r!vc 


17(2.X''1),21(,X?1) 




0ED2 


4C 01 


V C^ 


•DC 




520 




KVC 


21 {2,XP1) , HLTTD 


HOVE IN L!(T'='ST ER^np. 


0ED7 


CO BT 


0222 






521 




Q 


HALT 


EPPnP HALT -AOXX-. 


0ED3 


Aoon 






0E1C 


522 


HLTTD 


DC 


XL2' AOOO' 




OEDD 


38 40 


0E87 






523 




TBS 


STRTO,X'U0' 


INTEPVENTinN PFOniF-'D? 


0EE1 


CO 10 


0A16 






524 




XiT 


BEHTN 


BRANCH IF SO. 


0EE5 


C2 02 


0H1A 






525 




LA 


C1SDS,XR2 


PSSET command POINTER. 


0EF9 


2C 02 


0E82 


02 




526 




rvc 


CCMA,2(3,XP2) 


FFSFT COr.!!AND FIELD. 


OEE'^ 


3B 07 


ODPr 






527 




SBF 


ASin*1,X")7i 


"AKE LIKF A SFE^r. 


0EF2 


CO 87 


0'5«4 






52'' 




p 


LTOR 


GO "KrALIPPAT". 












52^ 


** *•*****«* 
















530 


» EQUATES * 
















531 


♦•♦»»**♦♦***»♦***♦*******♦«*♦*****♦**♦♦*****♦***♦♦»*♦******♦♦**♦*♦*•* 










OAOA 


532 


"5ys 


FOO 


X'OAOA' 












0001 


533 


XP-" 


FQU 


X'01' 












0002 


534 


XP2 


EOO 


X'02« 












0008 


535 


APF 


f'O'J 


X'08' 












0222 


536 


HALT 


FQO 


X'0222' 












0A1A 


537 


DATA 


EO'I 


^FC5TN + 4 


START 0"^ DI-^K !"='AD IS APFA 










0E«A 


538 


DAP 


SOU 


STA'^3 












0E84 


S39 


PATRN 


'■pn 


CCHY-2 












0E6A 


540 


TFHP 


EQI] 


''FAD 












0A12 


541 


N001 


EO'I 


PTV01 












0D35 


542 


SKTT1 


y.QV 


TT??VAL*1 


COOTJiil 'TSED FOP -F'K TI«E-onT VAL"E. 










0D35 


543 


BSTTTH 


Eon 


TT!*VAL+1 


CODIMr; tISED FOR POSY TIHE-OriT VALUE. 










0K82 


544 


CCWB 


"=•011 


CCWA 












0002 


545 


CAP2 


FOO 


X'07' 


HALF CAPACT-^Y FLAG. 


DATE 


13nAR70 


06APR70 


22f1AY-'0 


01 AOaT 


01OCT70 28APP71 PROG ID CSOF-4 


EC «I0. 


571S12 


571516 


571513 


571531 


571540 57156= 


; PAGE 4A 



TBB MAIST5NANCE DIAGNOSTIC PPOGPJlfl 



PART NO. 
PAGH 



5129650 
5 



AOFU DISK SYSTEM TEST SODOLF 

ERR Lnc OBJECT CODE ADDR ST»!T SOURCE STATRfl'ST 



0001 


5U6 


HOD3 


EQO 


X'OT 


0B2S 


5tt7 


HOPK 


EQU 


ITBSY-I 


0A16 


5I»R 




END 


3EG:!J 



MOD 3 COFIGOBATION FLAG. 

WORK AREA FOR TIBE-OOT VALOES. 



lA" 
EC 



E 
NO, 



1 1NAP70 
571512 



n6APR70 
■i71S16 



22riAY70 
571513 



01 AH" 70 
571531 



01or:T70 
57lStJ0 



28APH71 
S71565 



pi^nf; 
PAGE 



ID 



OAOP-a 
5 



IBB B*I1ITSH*NCE DIAGNOSTIC PPOGRAM 



?»PT NO, 
PAGE 



S1296S0 
SA 



A0?« 



DISK STSTEH T'=:ST HODHLl' 



CPCSS-PE?SPSNCH 



STSBOL T LES VAinF DEFN 



PFFERESCSS 



AF 


A 001 


OSPC 


0481 


0246* 


0316 












ABP 


C 001 


OOCB 


0535 


0057 


0360 


0514 










ASTO 


A 003 


0D8C 


0340 


0156 


0176 


0178 


0180 


0193 0201 


0224 0243 0252 


0253 










0308* 


0309* 


0310* 


0313 


0340 0342 


0350 0390 0527* 




AODT 


A 003 


OAOC 


0018 


0069 














BEGIN 


A OOtt 


0A16 


0046 


136* 


0524 


0537 


054 8 








BF 


A 001 


0F9P 


04 80 


0249* 


0332 












BIST 


A 04 


0A9A 


0095 


0098 


0102 












BRWCH2 


A 002 


0P25 


0142 


0136 














BSTTin 


A 003 


0D35 


0543 


02'=.8 


0353 












BOOT 


A 003 


OAOF 


0019 


0049 


OO^I 


0085 


009 5 


0125 0158 


0344 0392 




BtJST 


A OOl* 


0A9F 


0097 


0084 


0086 












CAP2 


C 001 


0OO2 


0545 


06<5 


0085 












ecu A 


A O04 


0E82 


0474 


0191 


0245 


0311* 


0312* 


0316* 0452 


0526* ^^44 




CCWB 


A ooa 


0S82 


0544 


0248 


0332* 












CCBX 


A OOH 


OE90 


0482 


0245* 


0246 


0243* 


0249 


0250 0266 






CCWT 


A 004 


0FR6 


0475 


0250* 


0251* 


0266 


0451 


0539 






CKDATA 


A 004 


OPPF 


0201 


0186 


0188 


1190 










CKL5T 


A OOD 


0D8F 


0350 
















CKOUT 


A OOtt 


Oor9 


377 


0374 














CKSEEK 


A OOH 


0C2F 


0243 


0230 














CKST 


\ OOU 


0A3C 


0057 


0048 


0054 












CKTB 


A 006 


OCttS 


0248 


0244 














CKTCK 


A oo*; 


0C51 


0250 


0247 














CKOC 


A OOU 


0T?F3 


0213 


0210 














CLIT 


A 004 


O^OF 


0135 


126 


0128 












CSNDS 


A 01 


OFIA 


0410 


007i» 


02 05 


0277 


052'^ 








C'PAF 


A O04 


0AP6 


0111 


0100 


0134 












DAFLG 


A C04 


CAE9 


0125 


a , ?2 














DAP 


A O01 


OEBA 


0538 


1 8 2 * 


OT^ii* 


0185 


01«7 


0189 






DAPCK 


A 004. 


0B60 


0176 
















DATA 


A 04 


0A1P. 


0517 


0201 


0207 


0211 


0307* 


0453 045*' 






DEC ID 


A nrin 


0B34 


0155 


0152 


0203 


0307 


0354 








DT" 


A C02 


n°6f 


0452 


347 














DISK 


A O01 


aooo 


0003 
















DOA 


A 06 


CD1 1 


0315 
















D0HD1 


A 04 


OTD": 


0292 


02 = 9 














DOT-" 


A 006 


niup 


1332 


0325 


0327 


0329 










DOXIT 


A 006 


On"5 


0^51 


351 














DTJiy^ 


* 004 


OF OP 


0?96 


0391 














END'F 


1, 003 


onsq 


0165 


0162 














EHPOP 


A O04 


OFPC 


0514 


106 


00<3'^ 


01 39 










ERPOP'^ 


.*. 004 


OEAA 


0'^09 


01'^3 


0199 


021 ' 


0215 


02^4 0253 


02«'=> 0271 033U 


Oiq7 


''RPOE 


A 0C4 


OCAO 


0271 


2^5 














ERTAP 


A 001 


0E92 


0493 


0017 


0516 












FPO'» 


» 0i( 


nnno 


nioQ 


0192 














^xir 


A 004 


0OA3 


0360 


155 


02 3 1 


02=^9 


033=) 








FIX IT 


A 06 


ODo"^ 


0339 


0336 














FLAG 


A 001 


0E7F 


0466 


0071* 


0007* 


032'' 


03 3') 








FWDSK 


A 004 


OCDC 


0294 


0291 














GOOF 


A 004 


oc«r 


02''7 


0137 


014? 


0166 


0393 


0399 






GOSIO 


A 004 


0F16 


0400 


0395 














iOXIT 


A 004 


0C7F 


02 59 


0265 














HALF 


A 004 


0A4D 


0069 


005n 


005-^ 












HALT 


r 001 


0222 


0536 


0521 














H*;! 


A 04 


OA'^F 


0074 
















HLTTD 


A 002 


OEnr 


05 22 


n '"- 1 * 


0097* 


0101* 


1 1 1 * 


0133* 0-^1 1* 


■ 0',13* 05 1^* 5;^0 




TVTNC 


A 003 


0D96 


03^2 


n ni 














T'^BSY 


\ 006 


OB 2 6 


015 1 


160 


0163 


2 ^ 


21 1 


45 5 0. ' 


TUsq 0^4"' 




ITSA 


A 004 


np"^ 1 


016T 


0157 


1 f"- n 












J?1P 


A 003 


0D93 


n ! s 1 


: } 8 3 * 














J««PP 


\ 002 


0F76 


0460 


01''6 














,7?1?R 


A OOil 


ODFF 


ni«Q 


^45 


0460 












LTOA 


A 04 


0D84 


03U7 


0317* 


0333* 


0S28 










LTOB 


\ O04 


onpp 


034P 


0318* 


0334* 












LI0 1 


A 003 


OABF 


nil 1 


124 


0127 


012<'* 


0130* 


013 1* 013 2^ 






DATE 


1 3I1AP70 


C6APP70 


221Ay70 


1 AUG 70 


01OCT70 


28APP71 




EC NO. 


571'^ 1 


? 


571516 


571513 


571531 


571S40 


571S65 





0254 0260 



r ^ r, r, 

!-'.r,E 



ID 



OAOF- 4 
5A 



I9»! ••MST5MANCE DI»t.;!«OSTIC P30GRAH 



AOFK 



•IISK SYSTF?! TPST HODOtE 



PART NO. 
PAGE 



S129650 
6 



CP0SS-BEFE5i;«ICE 



SY-'OOL T LFN VALUF DEFS 



HEFEPESCES 



LSTAn 

LSTHR 

inD< 

?!ST?C 

VTPDY 

N001 

OOPS 

PAT8H 

PDWFT 

?EAD 

RTN01 

SEK305 

SF-^IOO 

STO 

sn = 

STATO 
STftTI 

STAG'S 
STCK 
STH^A 
SYS 

TT-VAI. 
Tin 

"10 A 
'*"^n ? 

TiniD 

TIOTT 

TRNOF^ 

TPSGN 

TSTID 

VE? 

■JHA'A 

aHA'B 

VQPK 

X''FP 

XIT 

X'?1 

XR2 



OOU 
002 
002 
001 
OOU 
006 
001 
OOU 
OOU 
001 
002 
001 
006 
OOU 
OOU 
OOU 
06 
0C6 
003 
003 
OOU 
001 
001 
0C1 
001 
OOU 

OOU 

001 
002 
003 
OOU 
002 
001 
OOU 
OOU 
OOU 
OOU 
002 
003 
OOU 
OOU 
no*^ 
OOU 
OOU 
001 



0AP1 
0S6E 
0F70 
0001 
031D 
0nF3 
0A12 
CnOE 
0E8U 

onsfc 

OEf A 
0A12 
09FD 
0CF9 
OCFD 
0A5P 
OCFF 
002*^ 
OEOr 
0D35 
0C0 3 
0Efl7 
OESe 
OF8<5 
OEOA 
OAUU 
ODOP 
OAOA 
0E6A 
0D3U 
0C96 
OE^P 
0E7P 

oc*^n 

0!)«0 
0CC3 
OCFA 
0E6U 
0C75 

onpfi 

0DC1 
032S 
OBF" 
0rB2 
0001 



0081 
' iSfi 
0U57 
05U6 
0139 
3 96 
OSUI 
3<1U 
0539 
0335 
OUSU 
0OU3 
0223 
0309 
0310 
0073 
03 07 
C323 
0397 
0SU2 
022U 
0U76 
0U77 
0U7P 
0U79 
0059 
0312 
05 32 
05U0 
0326 
0265 
0U61 
0U63 
0255 
03U6 
02°7 
029R 
0U51 
0257 
0372 
0375 
05U7 
0215 
036U 
0533 



C 001 0OC2 053U 



0072 

0185 

0187 

03ttU 

0118 

382 

0151 

0378 

0112 

0319 

0209 

0016 

0177 

1 6 1 * 

029tt 

0070 

0179 

031U 

0223 

0233 

0377 

00U6* 

0381 

00U7* 

00'^7# 

0288 

0363 

0073* 

05U2 

0260* 

0315 

0323 

025U* 

315* 

028U 

0295 

0256 

0252* 

0U62 

0U6U 

0151* 

020U 

0360* 

007U* 

0121 

0165 

0'»T9 



0189 

0120 
0336* 

0232 0261 
0380 



0283 
05U1 



0285* 0287* 0337 0337* 0339 0339* 03US 05ttO 



016U* 0278* 039U* 0396* 
0296* 0298* 

0198 0202 0206 0208 0212 0267 0293 OUOO 



0379 0523 

0052* 0058 0115* 0117 01?S* 0197* 0226* 0228* 0229 0372* 0375* 

0053* 0116* 0110 0373* 0376* 0538 

0290* 0292* 

0075 0076 0077 0078 0079 0080 

05U3 

02f^2 



0323* 03U1 03U3 0509 



02=^3* 



0223* 0232* 0258* 0261* 0353* 



0362 
0075 
0123 
0205 



0076 0077 0078 0079 0080 0112* 0113 011U 0117 0119 

0123* 0135 0135 0516* 0518 0518 0519 0519 0520 

0277* 0308 0311 032U 0326 0335 0352 0352* 0397 0397* 



052*^* 0526 



TOTAL STATEBFVTS ?LA';r;FD IN THIS AS5EK?LY ^ 



zr so. 



1 IIAP'^O 
571512 
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22rAY70 
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IBM BMNTENHNCE DIAGNOSTIC PPOGRAM PJVPT SO. '>129650 

AOFU DISK SYSTEB TEST MODULE 

OBJECT CAPD LISTING 

THE CHftSACTEP INDICATES A "^LANK COLOBN AND TH'=' CHARACTERS D i H INDICATE NnHERIC SHIFT. 

CL 1 THROOGH 16 CL 17 THROUGH 32 CL 13 THPOaGH OR CL <*<) THROUGH 6« CL 6S THROUGH flO CL B1 THROUGH 96 

'^<-T2y|5 S B/H ♦IDA . ^ SC ""33SC Y-OYO: HOH* H|C — ^-*2^J3^:'3 » ?<.H*SC33 C%IKD ) FStIGOB<AOFttO00 1 

T<SZOCY, /OYSSY* J{ -HJ3-5CYT K 0H* + ? Wi -Y<9Z G*/ +-.7HGTT1UCW, 'I SSEL- . 2«UGJ- "vC !• A: A«AOFU0002 

T<-P,DOA 9riL- FCWZ + -+FT3 C 9DL- r^C'iZ* AQ + ET — ?-t 2D *? 6N?Y*S+ H HC"Hr.BLY -KQ-FIQ JC ♦BKC'I AOFUOOO 3 

T< ,GH 9=0H**? H iD «$OEHHJrr — P-« 2U -:D tSOSHHa*^^ '■,C_?'? 5:0*^5 *Ey <H«; + S OISH;F/< | POO'iN'/U AOFttOOOtt 

T<0,»<HQ»SaUA : H^-ETIf^D CY , 2 "^ 'D C2-B-.K ',0 /OO = + '5 HC? Hr,T3-f.9 , " 2Dll-:D 5"+- 2725 -D -C: lY AOFUOOOS 

•^.^•%T0 ,B*/ KILY ^B'UrD t$OH»H>VO IS-*< 0YRB2P /02 _0H* + ? G /02_C0D .15 Bt»7.I? ♦F/H ♦R-QB) , rf AOF«00O6 

T<^_$3/.2/ P /O: DB<SGC'^<9D 6 (?/ K+3 HC?H5B3?292Q t 5^ =?«Y*HOEH. ITY AC|W«"0 .SYTGI- JC3- A3 2n AOFU0007 

T.0>.OHD<,LtIGCC)7 2DI?9 06 (OA <«T- E-CQ72D *07. :H?Y* D<. t-*S- U ACY Y >S?H f' UA HS-DGJO i? C- ♦CQI'AOFU OOOB 

T< >5CYY+*| HAHOU ACY Y ♦*??! AHT I* CX" 2-.IC'''r) f-i't/ G<HH +3 1 HG ACB2C •■' /O 1 ^O'i**^- n.?-/F/< <B-<AL2n AOF" 0009 

T. OT'eL-BCC D 3 >C-.3«0'«P ^YDZTf^H C ] =; 3>C-.3. FfiO 70KD<« T-SCM 32U Y ("0^? ^'itYTB ; F /Q tC -Dtt 3< AOFU On 1 

T< OICBJ -5?>0H* tO-l /O:5B-0AB2r? ( {L-&CC72n ♦0%-: H«Y* r>< H« + SC-«:.CY'" 2'I^| /O ,12 ?EJ< + P="r A«2* AOFUOO 1 1 

T.-1<CF<| 5%VB/. / OC0H**O-*BD «. (3/ |C <*1 : BC ♦:" :{?iY*<" < + n : ^C .'^YTHJUJE ? . AO"? AOH<A OFUO0 1 2 

?. 19CY1 + TS0CCYO ♦■TC?"CYC)H 16C04 H 12C0'»H 1>CC>7 A 2Y<E0 + R|*/ 6'" A XHI 3) F.7*LDett I A0< A07U AOFUO0 1 3 

T. -2YB2* ( (♦BGCF< H 2PCQU| 5<VB/. 2/ P /0:5b<FSCGB ( :«-CYL2-":? /O: nA< . P1TG 1 YLOE'* . A0< A-Hi) AOyUOO 1 U 

T<F.3E/0:DC%HBC/Y : f.3Q+ D+«|Hf;A3Y ACW32/0Rt 59^+ n ( A7M'". A 3 Y ACy $2/0* » f.UF^Y* . 2-/GJO | BO*B ; BJAOFUOO 1 5 

T< "*.DT-AC|72D * : «■■ 3 • *Y*n + On<"& ^ "Bln<<20 CQ1C+1 (TLYHCO'»* -:B T> CYTPO >HK*./GA- 'iP-'^DflJ'' AOFUO0 1 6 

T. 0!JtCC>72DA*< -6 CCXY< 9"CY0tD 6 F + 1 {S-.HG. -OBCO< ♦^J-A "iifiF.-B "H ''-CT-O H,1^0-A ♦ B-- A7Bi A OFUO0 1 7 

T< 'i"?CX«2D *9a 9 =S7,A*C ♦-•O:.*/ {/LYSCC" ' Y- 1 2-F.U < '•,qT^caT2/0C>< 'V9 DCMOflT >-3*TFJ1 JCO- A.IOY AOFttOO 1 8 

T<-fi-.C072'T 3RP 6 {^7. G* DHC"HS««D 1Z -9H<Ef, + E?< C-F^COT^.i 'S -5 < ^'VCLP CD?IJB FCO-AEJH A OFUOO 1 9 

T<C7j/0t(j( - (_Lfi -B-r2-f>L /OYHOK* CBSCY- YO : HHY* H<. H ♦SC93CY YSf. : G?iZ ++J? iMBr, ) '='<;0B3F?A OFU0020 

T< '?BCY-.2U *9- : I«/ '='OH*+ri-P'<' 07 WCX$ /n:DA'?BGCE< BT 6(i/ |+n HC%B '■,r}{ii* «•, >H'^<-.F/0 *C0- A ; K'' A OFU002 1 

DAT? 131AP70 OfiAPP70 22'^AY70 01A'n70 01nCT70 2BAPR71 V'^rc, m 0;0F-« 

EC NO. S-'1S12 S71'-,16 S71S13 S71S31 S71SU0 S71StSS PAc,E fiA 
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AOFU DISK SYSTEM TEST BODOLE 

OBJECT CARD LIbTISG 

CL 1 THRODGH 16 CL 17 THROOGH 32 CL 33 THROOGH H9 CI. 49 THROnGH 6U CI 65 TKBOOGH 80 CL 81 THRPBGE 96 



T{-g9C|X2/0n: ei <Jo-ul)?-.a OHD<,*B GC*8 |=-ROEXYF* HIX B-RO Y&- P: HB B/CODGY OD — AK2- A0FUOO22 

T( <»>C2- YnQA(:A F PT| HYC1* HO Y AK-HS0AY3* DA < KO-L Y-i^-O"? "B/T IHBIY C5 2. SOD*HY A0F0O023 

T(5:aCBQ<I»3GC;^ Y 66* 7A B DSOOY B B<LIB_I 0«. SS H D B A fl . AO<A: 2'»AOFft002* 

T<0»Q ""390 *; M/ G+1 +6"HGACY 5C_?'»B «EC +7 0-D + OVOACJE* JD SL D!!C_3 /O 1IA8 EE-?H0E8A0Fft0025 

TG #5 Sh- C/ CY-. D YO0-K*FS0BCYH B + 0* (T*BGC05 GA- LCOtCafl- A0F40026 

EB/«»*F7* = ^DC"PH? ="7',5FI I C Ft ASC 9 A SO Q 15050501700 6 177 17: HA0FUO027 



LAST PAGE 



DATF 13SAB70 0fAPH7n 22HAY7n 01AUG70 01OCT70 2flAPB71 PPOG ID OAOF-a 
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